home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / CarribeanPoker.dxr / Objects_4_Bet Manager.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.6 KB  |  64 lines
  1. property pCreditBalance, _creditBalanceDisplay, _betDisplay, _ante, _betAmount, maxBet
  2.  
  3. on new me, theCreditBalance, theCreditBalanceDisplay, theBetDisplay
  4.   me.pCreditBalance = theCreditBalance
  5.   me._creditBalanceDisplay = theCreditBalanceDisplay
  6.   me._betDisplay = theBetDisplay
  7.   me._updateDisplay(_creditBalanceDisplay, pCreditBalance)
  8.   me._updateDisplay(_betDisplay, string(0))
  9.   me._ante = 0
  10.   me._betAmount = 0
  11.   me.maxBet = 100
  12.   return me
  13. end
  14.  
  15. on _adjustCreditBalance me, betDeduct
  16.   me.pCreditBalance = me.pCreditBalance - betDeduct
  17.   me._updateDisplay(_creditBalanceDisplay, pCreditBalance)
  18. end
  19.  
  20. on _anteUp me, howMuch
  21.   if me.pCreditBalance >= (howMuch + ((me._ante + howMuch) * 2)) then
  22.     if (me._ante + howMuch) <= me.maxBet then
  23.       me._ante = me._ante + howMuch
  24.       me._betAmount = me._ante
  25.       me._updateDisplay(_betDisplay, me._ante)
  26.       me._adjustCreditBalance(howMuch)
  27.     else
  28.       return "Maximum bet of $100.00"
  29.     end if
  30.   else
  31.     return "Not enough money"
  32.   end if
  33. end
  34.  
  35. on _updateDisplay me, displayToUpdate, theUpdate
  36.   displayToUpdate.text = "$" & string(theUpdate) & ".00"
  37. end
  38.  
  39. on mAddBet me
  40.   me._betAmount = me._betAmount + (me._ante * 2)
  41.   me._updateDisplay(_betDisplay, me._betAmount)
  42.   me._adjustCreditBalance(me._ante * 2)
  43. end
  44.  
  45. on mResetBet me
  46.   me._betAmount = 0
  47.   me._updateDisplay(_betDisplay, me._betAmount)
  48. end
  49.  
  50. on mClearAnte me
  51.   me._ante = 0
  52.   me._updateDisplay(_betDisplay, me._ante)
  53. end
  54.  
  55. on mClearBet me
  56.   _betAmount = 0
  57.   me._updateDisplay(_betDisplay, me._betAmount)
  58. end
  59.  
  60. on mReturnBet me, amount
  61.   me._adjustCreditBalance(amount * -1)
  62.   me.mResetBet()
  63. end
  64.